home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / System / MsgPort.st < prev    next >
Text File  |  2000-05-03  |  1KB  |  35 lines
  1. "---------------------------------------------------------------------"
  2. " MsgPort Class allows the User to communicate using MsgPorts, either "
  3. " within AmigaTalk programs, or to any defined MsgPort known to exec. "
  4. "---------------------------------------------------------------------"
  5.  
  6. Class MsgPort :Object
  7. ! portName !
  8. [
  9.    killPort
  10.       <primitive 191 0 portName>
  11. |
  12.    makePort: msgSize priority: priority
  13.       (<primitive 191 1 portName msgSize priority> == true)
  14.         ifFalse: [ self error: 'MsgPort ', portName, ' NOT created!'.
  15.                    ^ false
  16.                  ]
  17.         ifTrue:  [ ^ true ]
  18. |
  19.    getMessage
  20.       ^ <primitive 191 2 portName> "Return an array of bytes."
  21. |
  22.    sendMessage: bytesArray
  23.       <primitive 191 3 portName bytesArray>
  24. |
  25.    checkForPort
  26.       ^ <primtive 191 4 portName> "Return either true or false."
  27. |
  28.    linkToOutsidePort: sysPortName name: aTalkName size: msgSize
  29.       ^ <primitive 191 5 sysPortName aTalkName msgSize> "true or false."
  30. |
  31.    new: newPortName
  32.      portName <- newPortName.
  33.      ^ self
  34. ]
  35.